home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / MATHS / ARCAUT / Automatons / Gasket < prev    next >
Text File  |  1991-07-27  |  708b  |  37 lines
  1. AUTOMATON*
  2.  
  3.   Gasket
  4.  
  5.   This automaton grows a structure resembling the well known Sierpinski
  6.   gasket. The Moore neighbourhood is used.
  7.  
  8. INITIALISATION*
  9.  
  10.   10DEF PROCdo
  11.   20*SetEval wrap off
  12.   30*SetEval border dead
  13.   40ENDPROC
  14.  
  15. SCREEN*
  16.  
  17.   10DEF PROCdo
  18.   20DIM buf% 256:SYS "OS_ReadVarVal","suy",buf%,256
  19.   30GCOL 128 TINT 0:CLG
  20.   40GCOL 63 TINT 255:POINT 0,!buf%*2-8
  21.   50ENDPROC
  22.  
  23. CODE*
  24.  
  25. ( CELL 0 <> IF (CELL ==)
  26.   READ_NEIG
  27.   TR 253 = IF (TL 245 = IF (243 ==))
  28.   TR 252 > IF (TR 1 - ==)
  29.   TL 255 = IF (244 ==)
  30.   TL 243 > IF (TL 246 < IF (TL 1 + ==))
  31.   MR 245 > IF (MR 251 < IF (MR 1 + ==))
  32.   MR 243 = IF (247 ==)
  33.   TM 252 = IF (255 ==)
  34.   TM 246 = IF (255 ==)
  35.   dead ==                               )
  36.  
  37. END*